1 PRINT"[147]":::::::::::POKE53280,6:POKE53281,6:GOSUB 19
2 :POKE53280,.:POKE53281,.:POKE53265,80:FORC=0TO5:PRINT"[147]";:POKE646,C
3 PRINT"                                        ";:POKE53283,C:POKE53284,C+1
4 PRINT"  [160][160]         [160]                   [160] [160] [160] [160]";
5 PRINT" [160]  [160]       [160] [160]                   [160] [160] [160] ";
6 PRINT" [160]  [160]       [160]                    [160] [160] [160] [160]";
7 PRINT" [160]  [160]       [160]                     [160] [160] [160] ";
8 PRINT" [160][160][160][160] [160] [160][160] [160][160][160][160] [160][160][160]  [160] [160][160]  [160][160]    [160] [160] [160] [160]";
9 PRINT" [160]  [160] [160][160] [160]  [160]      [160] [160][160] [160] [160]  [160]    [160] [160] [160] ";
10 PRINT" [160]  [160] [160]  [160]  [160]   [160][160][160][160] [160]  [160] [160]  [160]   [160] [160] [160] [160]";
11 PRINT" [160]  [160] [160]  [160]  [160]   [160]  [160] [160]  [160] [160]  [160]    [160] [160] [160] ";
12 PRINT" [160]  [160] [160]  [160]  [160]   [160][160][160][160] [160]  [160]  [160][160][160]   [160] [160] [160] [160]";
13 PRINT"                             [160]    [160] [160] [160] ";
14 PRINT"                             [160]   [160] [160] [160] [160]";
15 PRINT"   [196][197][201][206][197][210][160][212][201][199][197][210][160][196][201][211][203]      [160]  [160]    [160] [160] [160] ";
16 PRINT"                           [160][160]    [160] [160] [160] [160]";
17 PRINT"                                        ";:NEXT:FORT=1TO1000:NEXT
18 :PRINT"[151]LUKIAN":FORT=1TO300:NEXT:GOTO29
19 FORZ=0TO24:POKE214,Z :SYS58732       :NEXT:POKE53265,80
20 POKE56325,1:PRINT"[147]";:POKE53282,PEEK(53284)
21 PRINT" [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160]";:POKE53284,Z+1
22 PRINT"[160] [160][200][160][201][160][197][160][210][160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] ";:POKE53284,PEEK(Z)
23 PRINT" [160] [160] [160] [160] [160] [160] [160] [160][201][160][211][160][212][160] [160] [160] [160] [160] [160] [160] [160] [160] [160]";:
24 PRINT"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160][196][160][197][160][210][160] [160] [160] [160] [160] ";:POKE53284,Z+Z
25 PRINT" [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160]";:POKE53284,PEEK(53282)
26 PRINT"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] ";:POKE56325,55:
27 POKE53281,PEEK(53282):POKE53280,PEEK(53281)
28 FORT=1TO1000:NEXT:RETURN
29 POKE198,0:WAIT198,1:POKE198,0
30 PRINT"[147]":OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$:E$=CHR$(0)
31 GETA$,A$,H$,L$:IFSTTHENSYS65484:CLOSE1:GOTO35
32 PRINTASC(H$+E$)+256*ASC(L$+E$);
33 GETA$,B$:IFA$THENPRINTA$B$;:GOTO33
34 PRINTA$:GOTO31
35 POKE198,0:WAIT198,1:POKE198,0:PRINT""